home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xt / init.c < prev    next >
C/C++ Source or Header  |  1992-10-01  |  462b  |  23 lines
  1. #include "xt.h"
  2.  
  3. static Object P_Xt_Release_4_Or_Laterp () {
  4.     return True;
  5. }
  6.  
  7. static Object P_Xt_Release_5_Or_Laterp () {
  8. #ifdef XT_RELEASE_5_OR_LATER
  9.     return True;
  10. #else
  11.     return False;
  12. #endif
  13. }
  14.  
  15. init_xt_init () {
  16.     Define_Primitive (P_Xt_Release_4_Or_Laterp, "xt-release-4-or-later?",
  17.     0, 0, EVAL);
  18.     Define_Primitive (P_Xt_Release_5_Or_Laterp, "xt-release-5-or-later?",
  19.     0, 0, EVAL);
  20.     XtToolkitInitialize ();
  21.     P_Provide (Intern ("xt.o"));
  22. }
  23.